macro LoopTime;
var
	boolean : done,inner;
	integer : h,m,s;
	Str255 : startTime, endTime;
	real : pixel;
	longint : x,y;
begin
	NewData('NewData',32,32,0,FALSE);
	GetTime(h,m,s);
	startTime:=concat(h:1,':',m:1,':',s:1);
	y:=0;
	pixel:=9;
	repeat
		inc(y,1);
		x:=3;
		repeat
			inc(x,1);
			GetDataNumber('NewData',x,y,pixel);  {3 seconds}
			inc(pixel,1);
			PutDataNumber('NewData',x,y,pixel);  {  2 seconds }
			inner:=cmp(x,=,9);
		until(inner);
		GetTime(h,m,s);
		done:=cmp(y,=,30);
	until(done);
	PlotData('NewData','Color Contour Plot',TRUE);
	GetTime(h,m,s);
	endTime:=concat(startTime,'  ',h:1,':',m:1,':',s:1);
	ShowInfo('','Loop Time:','Macintosh cx time: 5 seconds',endTime);
end;
